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Basic-Programme sind langsam. Zum Glück ist das für die mei- 
sten Anwendungen unerheblich. Das ändert sich, wenn z. B. 
umfangreiche Berechnungen durchzuführen sind, wo oft einige 
Programmteile bis zu mehrere hundert Male durchlaufen werden. 
Genau dort liegt der Ansatzpunkt, solche Programme schneller zu 
machen! 


/jie im folgenden genannten Beispiele 
und Daten beziehen sich auf den TRS- 
80. Die Ergebnisse sind daher nicht di- 
rekt auf andere Computer übertragbar, 
lassen sich aber leicht durch eigene Ver- 
suche nutzbringend anwenden. 

FOR-NEXT lohnt sich 

Die Motivation. Basic-Programme zu 
analysieren und zu beschleunigen, wird 
deutlich, wenn man die kleinen Pro- 
gramme in Tabelle 1 betrachtet. Beim 
ersten Hinsehen könnte man vermuten, 
daß sie praktisch identisch sind: beide 
bilden eine Zählschleife bis 10 000 und 
melden sich dann mit „FERTIG“. Der 
große Unterschied liegt in der Ausfüh- 
rungszeit! Programm A benötigt 22 Se- 
kunden. Programm B hingegen 178 Se- 
' unden. das ist über achtmal so lange. 
Oieses Beispiel zeigt deutlich, daß er- 
hebliche Laufzeitreduzierungen möglich 
sind und daß es sich lohnt, einzelne 
Basic-ßefehle einmal näher zu be- 
trachten. 

Zeitmessung in Programmschleifen 

Dazu wird die FOR-N’EXT-Schleife in 
Tabelle 2 benutzt. In Zeile 20 kann nun 
ein Basic-Befehl eingesetzt und seine 
Ausführungszeit bestimmt werden. Oh- 
ne Befehl in Zeile 20 dauert das Pro- 
gramm 22 Sekunden. Fügt man z.B. „20 
Y=0“ ein, wartet man 93 Sekunden auf 
die Fertigmeldung. Das heißt, die Aus- 
führungszeit für einen einzelnen Befehl 
„Y=0“ betragt gerade (93— 22)/10 000 s = 
7.1 ms. Auf diese Weise lassen sich sehr 
einfach die Ausführungszeiten verschie- 
dener Basicbefehle bestimmen. Hier sol- 
len nur die Befehle behandelt werden, 
die oft in Schleifen Vorkommen, da nur 
hier effektiv Zeit gespart werden kann. 


In Tabelle 3 sind die verschiedenen 
denkbaren Zuweisungsbefehle und ihre 
jeweiligen Ausführungszeiten abge- 
druckt. Die mit Klammern versehenen 
Zuweisungen, z.B. „(B = l)‘‘, bedeuten, 
daß dieser Befehl außerhalb der Schleife 
steht, beispielsweise in Zeile 5. 

LET kostet Speicherplatz, 
ist aber schneller “ ' ) 

Wie man sieht, differieren die Zeiten 
mitunter ganz erheblich. So sind die Zei- 
ten für Y=0 und Y=10 000 fast gleich, 
wogegen Y =0.001 zur Ausführung mehr 
als doppelt so lange braucht. Man er- 
kennt. daß man Zuweisungen der Art 
Y=A(I) oder A(l)=5 vermeiden sollte, 
denn sie sind um ein Drittel langsamer 
als z.B. Y = 5. Etwa 17 % Zeitgewinn 
| erreicht man durch die Zuordnung zwei- 
er Variablen, etwa Y=B Die wesentlich- 
f ste Methode besteht in der Benutzung 
des LET-Befehls. So ist LET Y = B um 
rund 40 % schneller als Y = B! 

| In Tabelle 4 findet man eine kleine Zu- 
sammenstellung arithmetischer Opera- 
tionen. Die Zeiten für Addition und Sub- 
traktion sind etwa gleich. Daß Multipli- 
kation und Division länger dauern, ist 
nicht erstaunlich. Wichtig ist. daß sich 
wieder die gleichen Ergebnisse finden 
lassen. Rechnungen mit ganzzahligen 
Variablen und LET-Anweisung sind am 
schnellsten. In Tabelle 5 wird es sehr 
deutlich, daß der TRS-80 beim Varia- 
blenrechnen schneller ist als beim Rech- 
nen mit Zahlen. Man beachte, daß in 
diesen beiden Beispielen die Schleifen 
nur jeweils 1000 Mal durchlaufen wer- 
den. Der Unterschied ist frappierend! 
Programm C benötigt 9 Sekunden, Pro- 
gramm D 36 Sekunden. Das ist viermal 
solange! Für die im Level 1 enthaltenen 
Funktionen INT, ABS und RND gilt 


ebenfalls das bisher Gesagte: LET-An- 
weisung und möglichst ganzzahlige 
Variablen benutzen. 

THEN kostet Zeit L^Ll) 

Interessant sind neben arithmetischen 
Befehlen besonders auch IF THEN-Ab- 
fragen, da sie sehr häufig in Rechen- 
schleifen benutzt werden. Bei einer nä- 
heren Analyse muß vor allem auf den 
Unterschied aufmerksam gemacht wer- 
den, ob die Abfrage wahr oder falsch ist. 
Betrachtet man z.B. die folgende Abfrage 
(unter der Voraussetzung A=l): 

IF A = 1 THEN B = 7 

so werden dafür 14 Millisekunden benö- 
tigt. Ist jedoch A=2 und wird statt THEN 
die Anweisung LET eingesetzt, als: 

IF A = 1 LET B = 7 

dann beträgt die Ausführungszeit nur 
die Hälfte, nämlich nur 7 Millise- 
kunden. 

Zusammenfassung der Ergebnisse 

Die gewonnenen Ergebnisse sollen noch 
einmal kurz aufgelistet und durch allge- 
meine Regeln ergänzt werden: 

1. LET-Anweisung benutzen. 

2. Häufig gebrauchte Variablen definie- -f~ 
ren (Beispiel Y=0,05G7) und damit 
arbeiten. 

3. Möglichst ganze Zahlen verwenden. -i- 

4. Schleifen mit FOR/NEXT und nicht . 
durch Inkrementieren einer Varia- 
blen aufbauen. 

5. Keine unnötigen Befehle innerhalb 
von Schleifen verwenden, auch 

6. REM kostet Zeit. 

7. IF THEN-Abfragen sollten möglichst T 
lange „falsch“ sein. 

8. Mehrere Befehlen in eine Zeile — 

schreiben. 

Diese Richtlinien sollten vor allem 
innerhalb von Schleifen befolgt werden, 
denn dort führen sie zu wesentlichen 
Laufzeitreduzierungen. Wie schon er- 
wähnt, gelten diese Regeln streng nur für 
das Level-l-Basic des TRS-80. Für ande- 
re Rechner müssen die Ergebnisse über- 
prüft werden. 

Abschließend sollen noch zwei kurze 
Programme vorgestellt werden (Tabelle 
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me-grundlagen 


6), die die Wirksamkeit der aufgestellten 
Regeln demonstrieren. Beide Program- 
me berechnen die Volumina und Ober- 
flächen von Kugeln mit den Radien R=1 
bis R=200. Im ersten Programm werden 
die gefundenen Ergebnisse konsequent 
berücksichtigt; das zweite soll als Ge- 
genbeispiel dienen. Die Laufzeiten spre- 
chen für sich: 20 Sekunden einerseits, 

36 Sekunden andererseits. 


Tabelle 1: Programmschleife mit FOR-N'EXT 
oder Variahlen-Inkremenlierung 

FOR-NKXT-Version: 

10 KOR X=1 TO 10 000 
20 NEXTX 
30 PRINT. .FERTIG" 
an END 

iTTkremenlierungs-Version: 

10 X=1 
20 X=X+1 

30 IF X < 10 000 THEN 20 
40 PRINT „FERTIG" 

50 END 


Tabelle 2: Messung der Dauer eines Basic- 
Befehls 

10 FOR X = 1 TO 10 000 
20 BASICBEFEHL ... 

30 NEXTX 
40 PRINT „FERTIG" 

50 END 


Tabelle 3: Ausfuhrungszeiten einiger Basic- 
Befehle 


-._-.Hhl 

Zeit/s 

Y = 0 

0,0071 

Y = 10 000 

0,0077 

Y = 0.001 

0.0161 

Y = B (B = l) 

0,0059 

A( 1 ) = 4 

0,0107 

A(I) = 4 (1 = 1) 

0,0096 

y — A(i) 

0,0097 

LET Y=0 

0,0046 

LET Y = B (B=l) 

0,0034 

LET A (1) = 4 

0,0083 


Tabelle 4: Zeitbedarf arithmetischer 
Operationen 

Befehl Ausführungszeibs 


Y = 1 ? 1 0,0100 0,0100 0,0112 0,0118 

Y = A ? B 0,0076 0,0078 0,0088 0,0092 

LET 

Y=1 ? 1 0,0074 0,0074 0,0085 0,0094 

LET 

Y = A ? B 0,0051 0,0054 0,0063 0,0068 


Tabelle 5: Vergleich von Variablen- 
und Zahlenoperationen 

Rechnen mit Variablen 
5 A=0.1234:B = 0.5678 
10 FOR X=1 TO 1000 
20 LET Y=A*B 
30 NEXT X 
40 PRINT „FERTIG" 

50 END 


I Rechnen mit Zahlen 
10 FOR X=1 TO 1000 
20 Y = 0, 1234*0, 5678 
30 NEXT X 
40 PRINT „FFiRTtC” 

50 END 


Tabelle 6: Errechnen von Kugel-Oberfläche 
und Volumen 

Schnelle Version 
10 A = 4*3. 14159 

20 FOR R=1 TO 200:LET V = A*R*R*R/3 
30 LET F=A*R*R:PRINT V,F:NEXT R 
40 PRINT „FERTIG" 

50 END 

Langsame Version 
10 R=0 
20 R=R+1 

30 V = 4 *0,33333 *3.141 59* (R*R*R) 

40 F=4*3.14159*(R*R) 

50 PRINT V.F 

60 IF R < = 200 THEN 20 

70 PRINT „FERTIG" 

80 END 




Sysiem- 

spezifi- 

seSies 

Die hier gezeigten Beispiele bezie- 
hen sich auf das Level-1 -Basic des 
TRS-80, das eingegebene Program- 
me als reine ASCIl-Zeichenfolge 
im Arbeitsspeicher ablegt. Die Ba- 
sic-Befehlsworte werden dabei 
nicht in Kurzbytes (Tokens) ver- 
schlüsselt - im Gegensatz zum Le- 
vel-2-Basic des TRS-80 und zu 
den meisten anderen Basic-Inter- 
pretern. Trotzdem sind die hier 
gewonnenen Erkenntnisse im 
Prinzip auch für andere Computer 
anwendbar 


Mehr Leistung 
für Apple IS 

Orange Speed heißt ein neues Produkt, 
das den Apple II insbesondere für tech- 
nisch-wissenschaftliche Anwendungen 
auf Vordermann bringt. Es besteht aus 
einer Einsteckkarte, die mit dem Arith- 
metik-Prozessor Am951 1 A ausgestattet 
ist. einem ROM-Adapter. zwei Disketten 
und einem umfangreichen Handbuch. 
Der Arithmetik-Prozessor kann von ei- 
ner beliebigen Sprache aus angespro- 
chen werden. Er erledigt Rechenopera- 
tionen bis zu lÜOmal schneller als der 
6502. Neben Ganzzahlen (“32768 odet 
±2147483647) verarbeitet er auch Gleit- 
kommazahlen (±0.9223367 • 1 0 la ). Die 
möglichen Rechenoperationen reichen 
von den vier Grundrechenarten bis zum 
Wurzelziehen, zu trigonometrischen 
und Exponentialfunktionen. Daneben 
sind zahlreiche Befehle für Stackmani- 
pulationen und Formatumwandlungen 
vorgesehen. 

Der eigentliche Clou von Orange Speed 
aber ist die Software. Sie besteht im we- 
sentlichen aus einem Compiler für ,.Me- 
talanguage" - einer stackorientierten 
Sprache, die nach Art mancher Taschen- 
rechner in der umgekehrten polnischen 
Notation arbeitet. Diese Sprache kennt 
als einziges Element den Befehl. Ausge- 
hend von einem Grundbefehlssatz 
„baut" sich der Programmierer eigene 
Befehle, die dem Wortschatz angefügt 
werden. Ein Programm besteht schließ- 
lich aus einem einzigen Befehl, der die 
gestellte Aufgabe ausführt. Nachteil: Der 
Programmierer ist für die Verwaltung 
des Stack zu jeder Zeit selbst verant- 
wortlich und wird vom System kaum 
auf Fehler aufmerksam gemacht. Leute, 
die es gewöhnt sind. Basic-Programme 
zu erstellen, dürften sich anfangs damit 
sehr schwer tun. Dies sind allerdings 
nicht die typischen Anwender. Beson- 
ders geeignet ist die Sprache zusammen 
mit dem Zusatzprozessor für Grafikan- 
wendungen, bei denen viel berechnet 
werden muß. Wer schon einmal am 
Bildschirm erlebt hat, wie mühsam 
Punkt für Punkt an eine Kurve angefügt 
wird, der weiß den erheblichen Ge- 
schwindigkeitszuwachs zu schätzen Be- 
fehle zum Erstellen von Polygonzügen 
und zum Einfugen von Text in die Gra- 
fikseite erhöhen den Komfort. 

Das ganze System ist kompatibel zu DOS 
3. 2/3. 3, Applesoft, CP'M und Pascal. 
Hervorheben muß man die ausgezeich- 
nete deutsche Dokumentation. 

Rudolf Hofer 

3.9 


rrw= 7/1982 





